home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arrays / easyway.frm < prev    next >
Text File  |  1997-08-11  |  4KB  |  170 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   3315
  5.    ClientLeft      =   4860
  6.    ClientTop       =   2550
  7.    ClientWidth     =   1605
  8.    ControlBox      =   0   'False
  9.    Height          =   3720
  10.    Left            =   4800
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3315
  16.    ScaleWidth      =   1605
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2205
  19.    Visible         =   0   'False
  20.    Width           =   1725
  21.    Begin VB.Label Label1 
  22.       Caption         =   "   Cancel"
  23.       Height          =   285
  24.       Index           =   10
  25.       Left            =   0
  26.       TabIndex        =   9
  27.       Top             =   2790
  28.       Width           =   1635
  29.    End
  30.    Begin VB.Label Label1 
  31.       Caption         =   "   Label9"
  32.       Height          =   285
  33.       Index           =   9
  34.       Left            =   0
  35.       TabIndex        =   8
  36.       Top             =   2235
  37.       Width           =   1635
  38.    End
  39.    Begin VB.Label Label1 
  40.       Caption         =   "   Label8"
  41.       Height          =   285
  42.       Index           =   8
  43.       Left            =   0
  44.       TabIndex        =   7
  45.       Top             =   1950
  46.       Width           =   1635
  47.    End
  48.    Begin VB.Label Label1 
  49.       Caption         =   "   Label7"
  50.       Height          =   270
  51.       Index           =   7
  52.       Left            =   0
  53.       TabIndex        =   6
  54.       Top             =   1665
  55.       Width           =   1635
  56.    End
  57.    Begin VB.Label Label1 
  58.       Caption         =   "   Label6"
  59.       Height          =   270
  60.       Index           =   6
  61.       Left            =   -15
  62.       TabIndex        =   5
  63.       Top             =   1410
  64.       Width           =   1650
  65.    End
  66.    Begin VB.Label Label1 
  67.       Caption         =   "   Label5"
  68.       Height          =   270
  69.       Index           =   5
  70.       Left            =   -15
  71.       TabIndex        =   4
  72.       Top             =   1140
  73.       Width           =   1650
  74.    End
  75.    Begin VB.Label Label1 
  76.       Caption         =   "   Label4"
  77.       Height          =   285
  78.       Index           =   4
  79.       Left            =   -15
  80.       TabIndex        =   3
  81.       Top             =   855
  82.       Width           =   1650
  83.    End
  84.    Begin VB.Label Label1 
  85.       BackColor       =   &H00C0C0C0&
  86.       Caption         =   "   Label3"
  87.       ForeColor       =   &H00000000&
  88.       Height          =   285
  89.       Index           =   3
  90.       Left            =   0
  91.       TabIndex        =   2
  92.       Top             =   570
  93.       Width           =   1635
  94.    End
  95.    Begin VB.Label Label1 
  96.       Caption         =   "   Label2"
  97.       Height          =   285
  98.       Index           =   2
  99.       Left            =   0
  100.       TabIndex        =   1
  101.       Top             =   285
  102.       Width           =   1635
  103.    End
  104.    Begin VB.Label Label1 
  105.       Caption         =   "   Label1"
  106.       Height          =   285
  107.       Index           =   1
  108.       Left            =   0
  109.       TabIndex        =   0
  110.       Top             =   0
  111.       Width           =   1635
  112.    End
  113. End
  114. Attribute VB_Name = "Form2"
  115. Attribute VB_Creatable = False
  116. Attribute VB_Exposed = False
  117. Option Explicit
  118.  
  119. Private Sub Label1_Click(Index As Integer)
  120.  
  121.    Form1.Command1.Caption = Label1(Index).Caption
  122.    
  123.    If Index = 10 Then
  124.       Label1(10).BorderStyle = 0
  125.       Form1.Command1.Caption = "Click Me"
  126.       Form2.Visible = False
  127.    End If
  128.    
  129. End Sub
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  162.    Dim n As Integer
  163.    For n = 1 To 10
  164.       Label1(n).BorderStyle = 0
  165.    Next
  166.    Label1(Index).BorderStyle = 1
  167. End Sub
  168.  
  169.  
  170.